﻿Imports System.Xml.Serialization



Partial Class App_Test_aa
    Inherits MyUI.PageBaseApp

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Dim acc = DB.TAB.Account.GetByPK(95211)


        Dim tw = New WebApi.Google.GoogleClient(acc.GetOauth2)

        Dim tt = tw.PostMoment("me")


        'Dim t As New App.Data.TemplatePost

        't.Account = acc
        'Dim a = t.Render("ciao {post_send;d} ok")

        'a = t.Render("ciao {most_engaging;m} ok {followers;m} male {male_perc}")

        ''

        ''Dim ids = tw.GetFollowers("", acc.Username, "-1")

        'Response.Write(a)

        'Response.Write(t.EmptyData)



        ' ids = tw.GetFollowers(acc.Username ,"", "1424856117489033180" )
    End Sub
    Sub pdf()


        'Dim PdfDoc As WebSupergoo.ABCpdf9.Doc = New WebSupergoo.ABCpdf9.Doc()

        'PdfDoc.HtmlOptions.UseScript = True
        'PdfDoc.HtmlOptions.Timeout = 10000
        'PdfDoc.HtmlOptions.Engine = WebSupergoo.ABCpdf9.EngineType.Gecko
        ''PdfDoc.AddImageUrl("http://127.0.0.1/App/test/a.html", True, 1024, True)
        'PdfDoc.AddImageUrl("http://127.0.0.1/App/dashboard", True, 1024, True)

        ''
        'PdfDoc.Save(Server.MapPath("/a.pdf"))

    End Sub
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click







    End Sub
End Class

